home *** CD-ROM | disk | FTP | other *** search
/ Apple II Magazines (DO) / Softdisk Magazette Volume 2, No. 06 (1983-02)(Softdisk)(Side B).zip / Softdisk Magazette Volume 2, No. 06 (1983-02)(Softdisk)(Side B).do / EDITOR.INFO.bas < prev    next >
BASIC Source File  |  1996-12-24  |  11KB  |  211 lines
  1. 0  GOTO 10
  2. 5  VTAB 24: HTAB 10: INVERSE : PRINT " [ PRESS ANY KEY ] ";: NORMAL : GET X$: PRINT X$: HOME : RETURN 
  3. 10  TEXT : HOME : HTAB 10: PRINT "EDITOR PACKAGE INFO"
  4. 20  PRINT : PRINT : PRINT " THIS PROGRAM WILL EXPLAIN IN DETAIL,": PRINT 
  5. 30  PRINT "THE FEATURES AND LIMITATIONS OF THE": PRINT 
  6. 40  PRINT "THREE PROGRAMS IN THIS PACKAGE. IN": PRINT 
  7. 50  PRINT "ADDITION, SOME POSSIBLE ENHANCEMENTS": PRINT 
  8. 60  PRINT "THAT COULD BE MADE TO THESE PROGRAMS": PRINT 
  9. 70  PRINT "WILL BE SUGGESTED.": PRINT 
  10. 80  PRINT : PRINT " THE THREE PROGRAMS ARE:": PRINT : PRINT "    TEXT.EDITOR": PRINT "    DUAL.FILE.PRINTER": PRINT "    FILE.COMBINER": PRINT 
  11. 90  GOSUB 5
  12. 100  HTAB 10: PRINT "TEXT.EDITOR FEATURES": PRINT : PRINT : POKE 34,3
  13. 110  PRINT " THE FIRST THING THE PROGRAM WILL ASK": PRINT 
  14. 120  PRINT "FOR IS A FILE NAME. IF THE FILE DOES'NT": PRINT 
  15. 130  PRINT "EXIST IT WILL BE CREATED, OTHERWISE IT": PRINT 
  16. 140  PRINT "WILL BE READ IN. THE SCREEN WILL CLEAR": PRINT 
  17. 150  PRINT "WITH A ";: INVERSE : PRINT "*";: NORMAL : PRINT " ON THE FIRST LINE, AND 19": PRINT 
  18. 160  PRINT "LINES OF TEXT SHOWING. THE BOTTOM FOUR": PRINT 
  19. 170  PRINT "LINES ARE STATUS AND OPTION LINES.": PRINT 
  20. 180  PRINT "THE LAST LINE WILL SHOW THE CURRENT": PRINT 
  21. 190  PRINT "LINE NO. AND NO. OF LINES IN FILE.": PRINT 
  22. 200  GOSUB 5
  23. 210  VTAB 2: HTAB 17: PRINT "(CONT.)": VTAB 4
  24. 220  PRINT "THE OPTIONS AVAILABLE ARE:": PRINT 
  25. 230  PRINT " 1) <= => (ARROW KEYS) - MOVE THE": PRINT 
  26. 240  PRINT "    CURSOR UP AND DOWN IN THE FILE.": PRINT : PRINT 
  27. 250  PRINT " 2) (I)NSERT - ALLOWS LINES TO BE ": PRINT 
  28. 260  PRINT "    INSERTED INTO THE FILE AFTER THE": PRINT 
  29. 270  PRINT "    CURRENT CURSOR POSITION. THIS MODE": PRINT 
  30. 280  PRINT "    WILL CONTINUE UNTIL A NULL LINE IS": PRINT 
  31. 290  PRINT "    ENTERED.(A C/R ON A LINE BY ITSELF)": PRINT 
  32. 300  GOSUB 5
  33. 310  PRINT "    A BLANK LINE IS ENTERED BY TYPING": PRINT 
  34. 320  PRINT "    A SINGLE SPACE ON A LINE. A LINE": PRINT 
  35. 330  PRINT "    CAN BE A MAXIMUM OF 39 CHARACTERS": PRINT 
  36. 340  PRINT "    LONG. IF THE LINE IS NOT THAT LONG": PRINT 
  37. 350  PRINT "    IT WILL BE SPACED OUT TO FILL OUT": PRINT 
  38. 360  PRINT "    TO THE MARGINS. THERE ARE THREE": PRINT 
  39. 370  PRINT "    WAYS TO SUPPRESS THIS:": PRINT : PRINT 
  40. 380  PRINT "    A) CTRL-N - THIS CHARACTER IN THE": PRINT 
  41. 390  PRINT "      FIRST COLUMN WILL SUPPRESS THE": PRINT 
  42. 400  GOSUB 5
  43. 410  PRINT "      JUSTIFICATION OF THAT LINE.": PRINT 
  44. 420  PRINT "    B) CTRL-I - THIS CHARACTER IN THE": PRINT 
  45. 430  PRINT "      FIRST COLUMN OF A LINE WILL CAUSE": PRINT 
  46. 440  PRINT "      AN INDENT OF 4 SPACES AND NO": PRINT 
  47. 450  PRINT "      JUSTIFICATION.": PRINT 
  48. 460  PRINT "    C) LINE TOO SHORT - IF THE LINE": PRINT 
  49. 470  PRINT "      WOULD REQUIRE MORE THAN 2 SPACES": PRINT 
  50. 480  PRINT "      BETWEEN EACH WORD, THE LINE WILL": PRINT 
  51. 490  PRINT "      NOT BE JUSTIFIED.": PRINT 
  52. 500  GOSUB 5
  53. 510  PRINT "    IN THE INSERT MODE ONLY - CONTROL": PRINT 
  54. 520  PRINT "    CHARACTERS WILL APPEAR INVERSE, AND": PRINT 
  55. 530  PRINT "    THE LINE NUMBER STATUS WILL NOT BE": PRINT 
  56. 540  PRINT "    UPDATED UNTIL THE INSERT MODE IS": PRINT 
  57. 550  PRINT "    EXITED.": PRINT : PRINT 
  58. 560  PRINT " 3) (C)HANGE - THIS WILL BLANK THE": PRINT 
  59. 570  PRINT "    CURRENT LINE AND ALLOW THE LINE TO": PRINT 
  60. 580  PRINT "    TO BE RE-ENTERED.": PRINT 
  61. 590  GOSUB 5
  62. 600  PRINT " 4) (D)ELETE - THIS WILL DELETE THE": PRINT 
  63. 610  PRINT "    THE LINE AT THE CURSOR POSITION ": PRINT 
  64. 620  PRINT "    AND UPDATE THE LINE NUMBER STATUS.": PRINT : PRINT 
  65. 630  PRINT " 5) (W)RITE - THIS WILL WRITE THE FILE": PRINT 
  66. 640  PRINT "    OUT TO DISK AND ADD AN END OF FILE": PRINT 
  67. 650  PRINT "    MARKER '@=@=@=@=@=@' TO THE FILE,": PRINT 
  68. 660  PRINT "    AND RETURN TO THE FIRST LINE FOR": PRINT 
  69. 670  PRINT "    MORE EDITING.": PRINT 
  70. 680  GOSUB 5
  71. 690  PRINT " 6) (Q)UIT - THIS WILL WRITE THE FILE,": PRINT 
  72. 700  PRINT "    AS IN (W)RITE, BUT WILL ALSO EXIT": PRINT 
  73. 710  PRINT "    EDITOR.": PRINT : PRINT 
  74. 720  PRINT " 7) (E)XIT - THIS WILL EXIT THE EDITOR": PRINT 
  75. 730  PRINT "    WITHOUT WRITING THE FILE. THIS CAN": PRINT 
  76. 740  PRINT "    BE USED IF CHANGES WERE MADE THAT": PRINT 
  77. 750  PRINT "    YOU DO NOT WANT IN THE FILE.": PRINT 
  78. 760  GOSUB 5
  79. 770  PRINT "    YOU WILL BE WARNED THAT DATA LOSS": PRINT 
  80. 780  PRINT "    MAY OCCUR AND GIVEN A CHANCE TO": PRINT 
  81. 790  PRINT "    RETURN TO THE EDITOR. ANY ANSWER": PRINT 
  82. 800  PRINT "    EXCEPT 'Y' WILL ABORT THE EXIT.": PRINT : PRINT 
  83. 810  GOSUB 5
  84. 820  TEXT : HOME : VTAB 1: HTAB 10: PRINT "POSSIBLE ENHANCEMENTS": POKE 34,3: VTAB 4
  85. 830  PRINT " 1) DURING THE CHANGE MODE, SOMETIMES": PRINT 
  86. 840  PRINT "    THE CURSOR GETS MISPLACED, AND IF": PRINT 
  87. 850  PRINT "    YOU DO ANY DELETES - THE WRONG": PRINT 
  88. 860  PRINT "    LINES WILL BE DELETED.": PRINT 
  89. 870  PRINT "  A) FIX - IF THIS HAPPENS, MOVE THE": PRINT 
  90. 880  PRINT "    CURSOR BEYOND EITHER SCREEN MARGIN": PRINT 
  91. 890  PRINT "    AND BACK - THIS WILL REPOSITION THE": PRINT 
  92. 900  PRINT "    CURSOR PROPERLY.": PRINT 
  93. 910  PRINT "  B) CHALLENGE - IS THERE A BETTER FIX?": PRINT 
  94. 920  GOSUB 5: VTAB 2: HTAB 16: PRINT "( CONT .)": VTAB 4
  95. 930  PRINT " 2) LOWER CASE ENTRY - CURRENTLY ONLY": PRINT 
  96. 940  PRINT "    ONLY POSSIBLE WITH A L/C ADAPTER.": PRINT 
  97. 950  PRINT "   A) CHALLENGE - MODIFY THE PROGRAM TO": PRINT 
  98. 960  PRINT "     ALLOW L/C ENTRY WITH <ESC> KEY AS": PRINT 
  99. 970  PRINT "     THE SHIFT(/LOCK) KEY.": PRINT : PRINT 
  100. 980  PRINT " 3) NO MEANS TO MOVE AROUND WITHIN FILE": PRINT 
  101. 990  PRINT "    EXCEPT SEQUENTIALLY.": PRINT 
  102. 1000  PRINT "  A) CHALLENGE #1 - ADD A METHOD TO": PRINT 
  103. 1010  PRINT "    'GOTO' A SPECIFIED LINE NUMBER.": PRINT 
  104. 1020  GOSUB 5
  105. 1030  PRINT "    EXAMPLE: '123G' WOULD GOTO LINE 123.": PRINT 
  106. 1040  PRINT "  B) CHALLENGE #2 - ADD A METHOD TO": PRINT 
  107. 1050  PRINT "    'FIND' A SPECIFIED STRING.": PRINT 
  108. 1060  PRINT "    EXAMPLE: '/<STRING>/' WOULD FIND": PRINT 
  109. 1070  PRINT "    <STRING> IN THE FILE AND GOTO THAT": PRINT 
  110. 1080  PRINT "    LINE OR IT WOULD PRINT 'NO MATCH'.": PRINT 
  111. 1090  GOSUB 5
  112. 1100  PRINT " 4) NO MEANS TO CHANGE A PART OF A LINE."
  113. 1110  PRINT "  A) CHALLENGE #1 - ADD A METHOD TO": PRINT 
  114. 1120  PRINT "    'COPY' OVER THE LINE TO BE CHANGED.": PRINT 
  115. 1130  PRINT "  B) CHALLENGE #2 - ADD A METHOD TO": PRINT 
  116. 1140  PRINT "    'SUBSTITUTE' ONE STRING FOR ANOTHER": PRINT 
  117. 1150  PRINT "    AT THE CURRENT LINE.": PRINT 
  118. 1160  PRINT "    EXAMPLE: 'S/<STR1>/<STR2>/' WOULD": PRINT 
  119. 1170  PRINT "    CHANGE <STR1> TO <STR2> OR PRINT": PRINT 
  120. 1180  PRINT "    'NO MATCH' IF NOT FOUND.": PRINT 
  121. 1190  GOSUB 5
  122. 1200  PRINT " OK, SOFTDISK SUBSCRIBERS, I'VE GIVEN": PRINT 
  123. 1210  PRINT "YOU WHAT I THINK IS A USEFUL TOOL, LET'S"
  124. 1220  PRINT "SEE WHAT YOU CAN COME UP WITH. I WANT": PRINT 
  125. 1230  PRINT "TO SEE SOME MODS COMING OUT SOON...": PRINT 
  126. 1240  GOSUB 5
  127. 1250  TEXT : HOME : VTAB 1: HTAB 15: PRINT "FILE.COMBINER": PRINT : PRINT 
  128. 1260  PRINT " THIS PROGRAM WILL COMBINE UP TO 20": PRINT 
  129. 1270  PRINT "FILES CREATED WITH THE TEXT.EDITOR INTO": PRINT 
  130. 1280  PRINT "ONE LARGE OUTPUT FILE. SINCE THE EDITOR": PRINT 
  131. 1290  PRINT "IS LIMITED TO 500 LINES, THIS IS A WAY": PRINT 
  132. 1300  PRINT "TO EDIT LARGE FILES IN SMALL CHUNKS.": PRINT : PRINT 
  133. 1310  PRINT " CHALLENGE - WRITE A 'FILE.SPLIT'": PRINT 
  134. 1320  PRINT "PROGRAM THAT WOULD TAKE A REGULAR TEXT": PRINT 
  135. 1330  PRINT "FILE AND SPLIT IT UP INTO CHUNKS THAT": PRINT 
  136. 1340  PRINT "THE TEXT.EDITOR COULD HANDLE (400LINES)"
  137. 1350  GOSUB 5
  138. 1360  HTAB 10: PRINT "DUAL.COLUMN.PRINTER": PRINT : PRINT : POKE 34,3
  139. 1370  PRINT " THIS PROGRAM WILL PRINT OUT SEQUENTIAL": PRINT 
  140. 1380  PRINT "TEXT FILES IN TWO COLUMNS, MAGAZINE ": PRINT 
  141. 1390  PRINT "STYLE. IT WORKS BEST WITH A PRINTER": PRINT 
  142. 1400  PRINT "CAPABLE OF >80 COLUMNS OF OUTPUT. IF": PRINT 
  143. 1410  PRINT "YOU HAVE A SILENTYPE PRINTER, I WOULD": PRINT 
  144. 1420  PRINT "RECOMMEND 'SMARTYPE' BY BRAD FROHOCK.": PRINT 
  145. 1430  PRINT "IT IS DISTRIBUTED BY SOFTSMITH, INC.": PRINT 
  146. 1440  PRINT " THIS PACKAGE ALLOWS VARIOUS FONTS AND": PRINT 
  147. 1450  PRINT "TRUE DESCENDERS. THEY SUPPLY A 96 COL-": PRINT 
  148. 1460  PRINT "UMN FONT THAT IS IDEAL FOR THIS PROGRAM."
  149. 1470  GOSUB 5: VTAB 2: HTAB 16: PRINT "( CONT .)": VTAB 4
  150. 1480  PRINT " THE PROGRAM WILL ASK FOR THE NUMBER OF": PRINT 
  151. 1490  PRINT "CHARACTERS/LINE IN THE FILE, THE NUMBER": PRINT 
  152. 1500  PRINT "OF COLUMNS FOR THE PRINTER, THE NUMBER": PRINT 
  153. 1510  PRINT "OF LINES/PAGE, AND SIZE OF TOP & BOTTOM": PRINT 
  154. 1520  PRINT "MARGINS. RIGHT AND LEFT MARGINS ARE SET": PRINT 
  155. 1530  PRINT "AUTOMATICALLY.": PRINT : PRINT 
  156. 1540  PRINT " YOU CAN SPECIFY A NUMBER OF LINES FROM": PRINT 
  157. 1550  PRINT "THE BEGINNING OF THE FILE TO BE USED AS": PRINT 
  158. 1560  PRINT "A TITLE TO BE CENTERED ON THE FIRST PAGE"
  159. 1570  GOSUB 5
  160. 1580  PRINT " EACH OF THE FOLLOWING PAGES WILL BE": PRINT 
  161. 1590  PRINT "NUMBERED AT THE TOP OF THE PAGE. IF NO": PRINT 
  162. 1600  PRINT "TITLE IS SPECIFIED, THE FIRST PAGE WILL": PRINT 
  163. 1610  PRINT "NOT HAVE A PAGE NUMBER.": PRINT 
  164. 1620  PRINT " IF A FILE NAME IS ENTERED THAT DOES": PRINT 
  165. 1630  PRINT "NOT EXIST, YOU WILL BE ASKED IF YOU": PRINT 
  166. 1640  PRINT "WANT A CATALOG, AND THEN TO RE-ENTER": PRINT 
  167. 1650  PRINT "THE FILE NAME.": PRINT 
  168. 1660  GOSUB 5
  169. 1670  PRINT "POSSIBLE ENHANCEMENTS:": PRINT 
  170. 1680  PRINT " 1) ENABLE PROGRAM TO WORK WITH OTHER": PRINT 
  171. 1690  PRINT "   PRINTERS.": PRINT 
  172. 1700  PRINT " 2) ADD AN OPTION TO PRINT ONLY CERTAIN": PRINT 
  173. 1710  PRINT "   PAGES, SUCH AS PAGE 3 THRU 10 OF A": PRINT 
  174. 1720  PRINT "   LARGE 20 PAGE DOCUMENT.": PRINT 
  175. 1730  PRINT " 3) ADD A COMMAND TO CAUSE A BREAK TO": PRINT 
  176. 1740  PRINT "   THE SECOND COLUMN, OR BREAK TO THE": PRINT 
  177. 1750  PRINT "   NEXT PAGE.": PRINT 
  178. 1760  GOSUB 5
  179. 1770  PRINT "   EXAMPLE: '.BC' WOULD CAUSE THE TEXT": PRINT 
  180. 1780  PRINT "   TO START FILLING THE SECOND COLUMN.": PRINT 
  181. 1790  PRINT "            '.BP' WOULD CAUSE THE TEXT": PRINT 
  182. 1800  PRINT "   STORED TO THAT POINT TO BE PRINTED": PRINT 
  183. 1810  PRINT "   AND A NEW PAGE TO START.": PRINT : PRINT 
  184. 1820  PRINT "  4) ADD A COMMAND TO READ IN AND PRINT": PRINT 
  185. 1830  PRINT "    OUT A GRAPHICS PICTURE CENTERED ON": PRINT 
  186. 1840  PRINT "    THE PAGE. THIS WOULD CAUSE THE TEXT": PRINT 
  187. 1850  GOSUB 5
  188. 1860  PRINT "    TO FILL TO A POINT THAT WOULD GIVE": PRINT 
  189. 1870  PRINT "    THE PICTURE ENOUGH ROOM, THEN PRINT": PRINT 
  190. 1880  PRINT "    OUT THE TEXT, FOLLOWED BY THE": PRINT 
  191. 1890  PRINT "    PICTURE.": PRINT : PRINT 
  192. 1900  GOSUB 5
  193. 1910  TEXT : HOME : HTAB 10: PRINT "EPILOGUE - WHAT WILL FOLLOW?"
  194. 1920  PRINT : PRINT " I HAVE SUBMITTED THIS PACKAGE BECAUSE": PRINT 
  195. 1930  PRINT "I HAVE GREAT CONFIDENCE IN YOU PEOPLE": PRINT 
  196. 1940  PRINT "OUT THERE IN SOFTDISK LAND, AND KNOW": PRINT 
  197. 1950  PRINT "THAT YOU ARE LOOKING FOR AND WILL MEET": PRINT 
  198. 1960  PRINT "CHALLENGES THAT ARE PUT TO YOU. SO": PRINT 
  199. 1970  PRINT "CONSIDER THIS A CHALLENGE - LET'S MAKE": PRINT 
  200. 1980  PRINT "THIS A GROUP EFFORT AND PRODUCE A TEXT": PRINT 
  201. 1990  PRINT "EDITING PACKAGE THAT IS BETTER THAN THE": PRINT 
  202. 2000  PRINT "COMMERCIAL PRODUCTS. HOW ABOUT IT...": PRINT : PRINT 
  203. 2010  GOSUB 5
  204. 2020  PRINT " IF ANYONE HAS ANY PROBLEMS OR QUESTIONS"
  205. 2030  PRINT "ABOUT THESE PROGRAMS, OR JUST WANT TO": PRINT 
  206. 2040  PRINT "BOUNCE IDEAS AROUND, DON'T HESITATE TO": PRINT 
  207. 2050  PRINT "CALL ME, OR SEND A LETTER, OR WRITE": PRINT 
  208. 2060  PRINT "THROUGH SOFTDISK. I WANT TO SEE SOME": PRINT 
  209. 2070  PRINT "GOOD RESULTS. MY ADDRESS IS IN THE": PRINT 
  210. 2080  PRINT "PROGRAMS. HAPPY PRODUCTIVE EDITING."
  211. 2090  END